home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
mus
/
play
/
SongPlayer.lha
/
songplayer
/
SongPlayer-Install
< prev
next >
Wrap
Text File
|
1998-03-24
|
5KB
|
202 lines
;------------------------------------------------------------------------------
;
; File : SongPlayer-Install
;
; Author : Stéphane TAVENARD
;
; (C) Copyright 1996-1998 Stéphane TAVENARD
; All Rights Reserved
;
; #Rev| Date | Comment
; ----|----------|--------------------------------------------------------
; 0 |05/01/1997| Initial revision ST
; 1 |24/08/1997| Generic CPU version / no more SONGPLAYER: assign ST
; 2 |23/03/1998| Locale support / Arexx samples / mpega.library ST
;
; ------------------------------------------------------------------------
;
; SongPlayer Intall script
;
;------------------------------------------------------------------------------
(complete 0)
; Français
;------------------------------------------------------------------------------
(if (= @language "français")
(
(set #guide "SongPlayer.fr.Guide" )
(set #destdir
(cat "Choisisez un repertoire de destination pour SongPlayer.\n"
"Un Tiroir nommé 'SongPlayer' y sera créé."
)
)
(set #copying "Copie des fichiers en cours.")
(set #mpegalib
(cat "Vous devez installer la librarie 'MPEGA.library'\n"
"correspondant à votre processeur pour pouvoir\n"
"utiliser des fichiers MPEG Audio.\n"
"\n"
"Cette librarie se trouve sur Aminet:\n"
"utils/libs/mpega_library.lha"
)
)
)
; Language is english by default
;------------------------------------------------------------------------------
(
(set #guide "SongPlayer.en.Guide" )
(set #destdir
(cat "Please select a place for SongPlayer.\n"
"A drawer called 'SongPlayer' will be created."
)
)
(set #copying "Files copy in progress.")
(set #mpegalib
(cat "You have to install the library 'MPEGA.library'\n"
"that correspond to your CPU in order to\n"
"use MPEG Audio files.\n"
"\n"
"This library can be found on Aminet:\n"
"utils/libs/mpega_library.lha"
)
)
)
)
; Search for old SONGPLAYER directory
;------------------------------------------------------------------------------
(complete 10)
(if (<> (exists "SONGPLAYER:" (noreq)) 0)
(
(set @default-dest (expandpath "SONGPLAYER:/"))
(set songplayerdir (tackon @default-dest "SongPlayer"))
))
; Ask for destination directory
;------------------------------------------------------------------------------
(complete 20)
(set @default-dest
(askdir
(prompt #destdir)
(help @askdir-help)
(default @default-dest)
)
)
(set @default-dest (expandpath @default-dest))
(set destination (tackon @default-dest "SongPlayer"))
; Create dir if doesn't exist
;------------------------------------------------------------------------------
(complete 30)
(if (= (exists destination) 0 )
(
(makedir destination (help @makedir-help))
))
; Copy Main files now
;------------------------------------------------------------------------------
(complete 40)
(copyfiles
(prompt #copying)
(source "")
(files)
(choices "SongPlayer")
(dest destination)
(infos)
(noposition)
(help @copyfiles-help)
)
; Copy Help file now
;------------------------------------------------------------------------------
(complete 50)
(copyfiles
(prompt #copying)
(source #guide)
(dest destination)
(newname "SongPlayer.Guide")
(infos)
)
; Copy Images files now
;------------------------------------------------------------------------------
(complete 60)
(copyfiles
(prompt #copying)
(source "")
(pattern "Images")
(dest destination)
(infos)
(help @copyfiles-help)
)
; Copy Catalog files now
;------------------------------------------------------------------------------
(complete 70)
(copyfiles
(prompt #copying)
(source "")
(pattern "Catalogs")
(dest destination)
(infos)
(help @copyfiles-help)
)
; Copy Arexx samples files now
;------------------------------------------------------------------------------
(complete 80)
(copyfiles
(prompt #copying)
(source "")
(pattern "Arexx")
(dest destination)
(infos)
(help @copyfiles-help)
)
; Copy Utilities files now
;------------------------------------------------------------------------------
(complete 90)
(copyfiles
(prompt #copying)
(source "")
(pattern "Utils")
(dest destination)
(infos)
(help @copyfiles-help)
)
; End
;------------------------------------------------------------------------------
(complete 95)
(message
(cat "\n" #mpegalib)
)
(complete 100)